home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 04 / 1 / DISK0412.ZIP / ROLPRINT.CMD < prev    next >
Encoding:
Text File  |  1985-04-03  |  768 b   |  43 lines
  1. * rolodex printer
  2. use b:rolodex index b:roldex1
  3. goto top
  4. set eject off
  5. set talk off
  6. set print on
  7. do while .not. eof
  8.     if name &findname
  9.         ? name
  10.         ? ophone
  11.         ?? ' ' 
  12.         ?? rphone
  13.         ? 'OFFICE ADDRESS:' 
  14.         ? oaddr
  15.         ? ocity
  16.         ?? ' ' 
  17.         ?? ostate
  18.         ?? ' ' 
  19.         ?? ozip
  20.         ? 'RESIDENCE ADDRESS:' 
  21.         ? raddr
  22.         ? rcity
  23.         ?? ' ' 
  24.         ?? rstate
  25.         ?? ' ' 
  26.         ?? rzip
  27.         ? 'COMMENT:' 
  28.         ? comment
  29.         ? date
  30.         ?
  31.         ?
  32.         ?
  33.         ?
  34.         ?
  35.         ?
  36.         ?
  37.     endif name &findname 
  38.     skip 1
  39. enddo while .not. eof 
  40. set print off
  41. set format to screen
  42. use
  43.